home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / text / xes.lha / XES / REXX / VER.xdme < prev    next >
Text File  |  1995-08-14  |  1KB  |  42 lines
  1. /**************************************************************************/
  2. /* $VER: VER.xdme 1.3 (14 Aug 1995)                                       */
  3. /* Updates the version in a script.                                       */
  4. /* USAGE: rx2 VER <arg1> <arg2>                                           */
  5. /* arg1 = RX for ARexx scripts or XRC for XDME scripts                    */
  6. /* arg2 = V for incrementing version or R for incrementing revision.      */
  7. /* The filename in the string must match the current filename. Otherwise, */
  8. /* it replaces the first line with a version 1.0 version string.          */
  9. /**************************************************************************/
  10.  
  11. ARG t c
  12. OPTIONS RESULTS
  13. 'rxresult' $fname
  14. name = RESULT
  15. IF t = "RX" THEN cmt = "/" || "*"
  16. IF t = "XRC" THEN cmt = "#"
  17. xcom = "top first fail? (find $VER:) scanf w"
  18. xcom
  19. 'rxresult' $scanf
  20. word = RESULT
  21. IF word = "$VER:" THEN DO
  22.     'rxresult' $currentline
  23.     line = RESULT
  24.     deline
  25.     ver = WORD(line, 4)
  26.     dot = index(ver, ".")
  27.     IF c = "V" THEN
  28.         ver = LEFT(ver, dot-1)+1 || ".0"
  29.     ELSE IF c = "R" THEN
  30.         ver = LEFT(ver, dot-1) || "." || DELSTR(ver, 1, dot)+1
  31. END
  32. ELSE
  33.     ver = "1.0"
  34. xcom = "insert (" || cmt "$) insert (VER:" name ver "(" || date() || ")"
  35. IF t = "RX" THEN xcom = xcom "*" || "/)"
  36. IF t = "XRC" THEN xcom = xcom || ")"
  37. first
  38. xcom
  39. split
  40. first
  41.  
  42.